home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Network Login Background.xpl < prev    next >
Text File  |  1999-10-21  |  2KB  |  82 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH"="Network\Login\2) Before Login Window"
  5. "NAME"="Background: Color"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Set Color"
  9. "TEXT 2"="Reset Color"
  10. "DESCRIPTION 1"="You can change the background color, that is displayed before any user is able to login (means: before the login window appears), with this plug-in."
  11. "DESCRIPTION 2"="Either you set the color here or reset to the default color by clicking on "Reset Color"."
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  15. "COMMENT 2"="Thanks to CptSiskoX [CptSiskoX@FlashMail.Com] for this option."
  16.  
  17. 'Cyan 00 FF FF
  18. 'Magenta FF 00 FF
  19. sP="HKUS\.DEFAULT\Control Panel\Colors\Background"
  20. Sub Plugin_Initialize 
  21.                                'Farbe RR GG BB (:BB 
  22.   Call SetUIElement(1,"Red")   'FF 00 00
  23.   Call SetUIElement(2,"Green") '00 FF 00
  24.   Call SetUIElement(3,"Blue")  '00 00 FF
  25.   Call SetUIElement(4,"Yellow")'Gelb FF FF 00
  26.   Call SetUIElement(5,"White") 'Wei▀ FF FF FF
  27.   Call SetUIElement(6,"Black") 'Schwarz 00 00 00
  28.   Call SetUIElement(7,"Brown") 'Braun A5 2A 2A
  29. End Sub
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  If ElementIndex=1 then 'Set Color
  36.     if ElementSubIndex=0 then 
  37.        Call MsgWarning("No item selected - please select an item first.")
  38.        Exit sub
  39.     end if
  40.  
  41.     s=""
  42.  
  43.     Select Case ElementSubIndex
  44.     Case 1 'Red
  45.      s="255 00 00"
  46.     Case 2 'Green
  47.      s="00 255 00"
  48.     Case 3 'Blue
  49.      s="00 00 255"
  50.     Case 4 'Yellow
  51.      s="255 255 00"
  52.     Case 5 'White
  53.      s="255 225 225"
  54.     Case 6 'Black
  55.      s="00 00 00"
  56.     Case 7 'Brown
  57.      s="165 42 42"
  58.  
  59.     End Select
  60.  
  61.     Call RegWriteValue(sp,s,1)    
  62.     Call MsgInformatioN("The new color has been set")
  63.  
  64.  else 'Reset Color
  65.     s=RegReadValue(sp)
  66.     if not IsEmpty(s) then
  67.        Call RegDeleteValue(sp)
  68.     end if       
  69.  
  70.     Call MsgInformatioN("The default color has been restored")
  71.  end if
  72.  
  73.  
  74.  Call Logoff()
  75. End Sub
  76.  
  77. Sub Plugin_Terminate 
  78. End Sub
  79.  
  80.  
  81.  
  82.